From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 22 Jan 2022 10:14:17 +0000 (+0200)
Subject: ; Fix last change in 'textsec-bidi-controls-suspicious-p'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3310
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a604e877cd1f8096f8c428c88c5b960307c12f85;p=emacs.git

; Fix last change in 'textsec-bidi-controls-suspicious-p'.
---

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index adef64bfdf0..6985f4f3efe 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -301,7 +301,9 @@ affected by bidi controls in STRING."
     ;; state at end of STRING which could then affect the following
     ;; text.
     (insert string "a1א:!")
-    (bidi-find-overridden-directionality 1 (point-max) nil)))
+    (let ((pos (bidi-find-overridden-directionality 1 (point-max) nil)))
+      (and (fixnump pos)
+           (1- pos)))))
 
 (defun textsec-name-suspicious-p (name)
   "Say whether NAME looks suspicious.